home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 January / Macworld (1998-01).dmg / QuarkXPress Passport / QXP Passport™ Pre-release PPC / QuarkXPress Passport™ 4.0 Demo / QuarkXPress Passport™ 4.0 Demo.rsrc / STR#_805.txt < prev    next >
Text File  |  1997-08-25  |  910b  |  45 lines
  1. epnul
  2.  
  3. /startnup where{begin startnup end}if
  4.  
  5. gsave 1 setgray newpath 0 0 moveto 0 1 rlineto 1 0 rlineto 0 -1 rlineto closepath eofill grestore
  6.  
  7. exec
  8.  
  9. /image load
  10.  
  11. systemdict/image get
  12.  
  13. {currentfile qxpstr readhexstring pop dup 0 exch{255 exch sub 3 copy put pop 1 add}forall pop}
  14.  
  15. {currentfile qxpstr readhexstring pop}
  16.  
  17. {currentfile qxpstr readstring pop}
  18.  
  19. string/qxpstr exch def 8[3 index 0 0 5 index neg 0 7 index]
  20.  
  21. 1 dict begin
  22.  
  23. /demohel exch definefont[120 0 0 -120 0 0]makefont setfont
  24.  
  25. /StrokeWidth 8 def currentdict end
  26.  
  27. /PaintType 2 def
  28.  
  29. {1 index/FID ne 2 index/UniqueID ne and{def}{pop pop}ifelse}forall
  30.  
  31. /Helvetica findfont dup maxlength 1 add dict begin
  32.  
  33. ***
  34.  
  35. /Symbol FF def
  36.  
  37. exch known {exch}if pop findfont}B
  38.  
  39. /FF{dup 256 string cvs (|______) exch MN cvn dup FontDirectory
  40.  
  41. Len 4 -1 roll putinterval dup 0 4 -1 roll putinterval}B
  42.  
  43. /MN{1 index length /Len exch def dup length Len add string dup
  44.  
  45.